home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / PROGRAMMING / DOCS / OSGBPB next >
Text File  |  1998-06-02  |  353b  |  22 lines
  1.  
  2. offset=0
  3.  
  4. REPEAT
  5.   SYS "OS_GPBP",9,directory$,block%,how_many,offset,size,"*" TO ,,,got,offset
  6.   IF (got) THEN
  7.     process what you got
  8.     (if you set how_many to 1, it'll only be 1)
  9.   ENDIF
  10. UNTIL offset = -1
  11.  
  12.   -- Nick Clark
  13.  
  14. I think I'd prefer :
  15.  
  16.   WHILE got > 0
  17.     process element
  18.     got -= 1
  19.   ENDWHILE
  20.  
  21.   -- Matthew Wilcox
  22.